a<-pt(2.2,19,lower.tail=F)
b<-pt(-2.2,19)
teste.t<-a+b
limite<-qt(0.025,19,lower.tail=F)